<script>on mouseUpput FileSysInfo(cd fld "path", the hilite of cd btn "Invisible", ¬the hilite of cd btn "Special") into cd fld "ans"end mouseUp</script>
</part>
<part>
<id>7</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>356</left>
<top>39</top>
<right>378</right>
<bottom>60</bottom>
</rect>
<style>opaque</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>26635</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>New Button</name>
<script>on mouseUpshow cd fld "Info"end mouseUp</script>
</part>
<part>
<id>6</id>
<type>field</type>
<visible> <false /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <false /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <true /> </lockText>
<rect>
<left>0</left>
<top>0</top>
<right>416</right>
<bottom>240</bottom>
</rect>
<style>rectangle</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>Monaco</font>
<textSize>9</textSize>
<textStyle>plain</textStyle>
<textHeight>12</textHeight>
<name>Info</name>
<script>on mouseUphide meend mouseUp</script>
</part>
<content>
<layer>card</layer>
<id>1</id>
<text>:Stacks:</text>
</content>
<content>
<layer>card</layer>
<id>6</id>
<text>Syntax: FileSysInfo(path[, invis flag, special flag)Where:path: is the name of a file system object, relative paths shouldwork OK (relative to current folder - usually the application's one).invis flag & special flag: if true include invisible(special - i.e.system ones that are usually hidden) objects in output.Output:1st line: full path & description of objectsubsequent lines: name & description of objects in folder if 1st line shows this is a folder.Folder Description: name,folder,<number of items>File Desc: name,file,type,creater,data size, resource size(Click to continue)</text>
<script>on mouseUplock screenset lockMessages to truesend closeCard to this cdgo next cardsend openCard to this cdunlock screen with visual effect wipe leftset lockMessages to falseend mouseUp</script>
</part>
<part>
<id>9</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>0</left>
<top>188</top>
<right>26</right>
<bottom>212</bottom>
</rect>
<style>transparent</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>21700</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Home</name>
<script>on mouseUpgo homeend mouseUp</script>
</part>
<part>
<id>14</id>
<type>field</type>
<visible> <true /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <false /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <true /> </lockText>
<rect>
<left>14</left>
<top>46</top>
<right>403</right>
<bottom>187</bottom>
</rect>
<style>scrolling</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <true /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Times</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<textHeight>16</textHeight>
<name>Copyright</name>
<script></script>
</part>
<part>
<id>15</id>
<type>field</type>
<visible> <true /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <false /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <true /> </lockText>
<rect>
<left>39</left>
<top>7</top>
<right>376</right>
<bottom>43</bottom>
</rect>
<style>shadow</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <true /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Times</font>
<textSize>24</textSize>
<textStyle>italic</textStyle>
<textStyle>bold</textStyle>
<textHeight>32</textHeight>
<name>Title</name>
<script>on mouseDownif the optionKey is downthenset the visible of bg btn "Lock" to not the visible of bg btn "Lock"end ifend mouseDown</script>
</part>
<part>
<id>16</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>303</left>
<top>186</top>
<right>403</right>
<bottom>203</bottom>
</rect>
<style>rectangle</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Times</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Version History</name>
<script>on mouseUpif the visible of cd fld "History" thensend hideField to cd fld "History"elsesend showField to cd fld "History"end ifend mouseUp</script>
</part>
<part>
<id>17</id>
<type>field</type>
<visible> <false /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <false /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <true /> </lockText>
<rect>
<left>14</left>
<top>46</top>
<right>403</right>
<bottom>187</bottom>
</rect>
<style>scrolling</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <true /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>Times</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<textHeight>16</textHeight>
<name>History</name>
<script>on mouseUphideFieldend mouseUpon showFieldif not the visible of me thenlock screenshow meset the name of cd btn id 16 to "Introduction"unlock screen with visual effect wipe leftend ifend showFieldon hideFieldif the visible of me thenlock screenhide meset the name of cd btn id 16 to "Version History"unlock screen with visual effect wipe rightend ifend hideField</script>
</part>
<content>
<layer>background</layer>
<id>6</id>
<text>Dr N Perry, Department of Computer Sicence, Massey University,Palmerston North, New Zealand. Email: N.Perry@massey.ac.nz</text>
</content>
<content>
<layer>card</layer>
<id>14</id>
<text><span class="style10">ll XFCN code resources and stacks in this package areCopyright © 1993 by Nigel Perry. Code resources written in Think C © Symantec</span><span class="style12">LICENSE AGREEMENT</span><span class="style10">This package is an </span><span class="style13">early access</span><span class="style10"> release.This early access release is being made in response to a plea on Usenet for software to perform a function along the lines of that performed by this one. No guarantee is made that the final release of this software will (a) occur or (b) be in any way related!It is made available to you under the following conditions, if you do not agree to them you must destroy this package.1) You may not pass this package on to </span><span class="style12">anybody</span><span class="style10">, either asis or modified except as allowed below. 2) If you are an author of ShareWare you may use this package, according to the other provisions of this agreement, for a period of seven days only. If you wish to continue to use this package after seven days then you must issue a waiver for all your ShareWare fees in the name of the author of this package, Dr Nigel Perry. On receipt of this waiver by the author, Dr Nigel Perry, you will be granted use of this package, under the conditions of this agreement, as that provided for non ShareWare authors.3) Unless otherwise provided for in this agreement you may not:(i) Sell anything which includes this package or part of it, this includes incorporating it into ShareWare.(ii) Include this package or part of it in anything you are paid, whether in money of kind, to produce.(iii) Use this package or part of it as an inducement to purchase something else.4) You may use this software for your own personal non-work use, provided you send a PostCard of your home town/area/etc. to the author at the address below, this will be added to his son's collection.5) You may use this software as part of your work provided that:(i) you are a teacher, lecturer, or reseacher in your countries public education system </span><span class="style12">or</span><span class="style10"> you are an employee of a registered charity(ii) you send a PostCard of your home town/area/etc. to the author at the address below, this will be added to his son's collection.(6) No warranty, either express or implied, is made with respect the softwares performance or fitness for purpose.(7) You may not reverse engineer, disassemble, decompile, or otherwise attempt to discover the logic or source code to this software.</span></text>
</content>
<content>
<layer>card</layer>
<id>15</id>
<text>FileSysInfo Early Access</text>
</content>
<content>
<layer>card</layer>
<id>17</id>
<text>Version 1.0 Early Access: March 93    This software has been developed for use in a future software release from Nigel Perry. This early access release is being made in response to a plea on Usenet for software to perform a function along the lines of that performed by this one. No guarantee is made that the final release of this software will (a) occur or (b) be in any way related!</text>
</content>
<name>Intro</name>
<script>on openCardset the scroll of cd fld "Copyright" to 0set the scroll of cd fld "History" to 0end openCardon closeCardsend hideField to cd fld "History"set the scroll of cd fld "Copyright" to 0end closeCardon arrowKey whichif which is "Right" thensend mouseUp to btn "Next"elseif which is not "Left" thenpass arrowKeyend ifend ifend arrowKey</script>
